home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 7 / DOS222.dsk / ALVIN.TOFFLER.bas < prev    next >
BASIC Source File  |  2012-02-16  |  3KB  |  141 lines
  1. 1  REM  ***********************
  2. 2  REM  *
  3. 3  REM  * DISPELLING THE MYTH OF
  4. 4  REM  *
  5. 5  REM  * INFORMATION OVERLOAD
  6. 6  REM  * 
  7. 7  REM  * COPYRIGHT 1986 PHIL SHAPIRO
  8. 8  REM  *
  9. 9  HOME : FOR D = 1 TO 2500: NEXT D: SPEED= 255
  10. 10  VTAB 14: PRINT "DISPELLING THE MYTH OF INFORMATION"
  11. 11  VTAB 16: HTAB 14: PRINT "OVERLOAD"
  12. 14  PRINT : PRINT : PRINT : PRINT 
  13. 30  FOR D = 1 TO 4300: NEXT D
  14. 40  PRINT "ALVIN TOFFLER AND OTHERS OF HIS  ILK
  15. 50  PRINT 
  16. 60  FOR D = 1 TO 1700: NEXT D
  17. 70  PRINT "HAVE BEEN EMPHATICALLY DECLARING
  18. 80  PRINT 
  19. 90  FOR D = 1 TO 1700: NEXT D
  20. 100  PRINT "THAT WE ARE NOW LIVING"
  21. 110  PRINT 
  22. 120  FOR D = 1 TO 1700: NEXT D
  23. 130  PRINT "IN AN INFORMATION AGE"
  24. 140  PRINT 
  25. 150  FOR D = 1 TO 1200: NEXT D
  26. 160  PRINT "AND THAT MORE INFORMATION"
  27. 170  PRINT 
  28. 180  FOR D = 1 TO 1200: NEXT D
  29. 190  PRINT "IS BEING PRODUCED"
  30. 200  PRINT 
  31. 210  FOR D = 1 TO 1200: NEXT D
  32. 220  PRINT "IN A SINGLE DECADE, THESE DAYS"
  33. 230  PRINT 
  34. 240  FOR D = 1 TO 1200: NEXT D
  35. 250  PRINT "THAN WAS PRODUCED DURING"
  36. 260  PRINT 
  37. 270  FOR D = 1 TO 1000: NEXT D
  38. 280  PRINT "THE SUM TOTAL OF ALL"
  39. 290  PRINT 
  40. 300  FOR D = 1 TO 1000: NEXT D
  41. 310  PRINT "PRIOR HUMAN HISTORY."
  42. 320  PRINT 
  43. 330  FOR D = 1 TO 1000: NEXT D
  44. 340  PRINT "WHILE THIS AUTHOR HAS"
  45. 350  PRINT 
  46. 360  FOR D = 1 TO 800: NEXT D
  47. 370  PRINT "NO ARGUMENT WITH"
  48. 380  PRINT 
  49. 390  FOR D = 1 TO 800: NEXT D
  50. 400  PRINT "TOFFLER'S BASIC PREMISS"
  51. 410  PRINT 
  52. 420  FOR D = 1 TO 800: NEXT D
  53. 430  PRINT "IT DOES SEEM A TAD PREMATURE"
  54. 440  PRINT 
  55. 450  FOR D = 1 TO 600: NEXT D
  56. 460  PRINT "AT THIS TIME, TO BE RAISING"
  57. 470  PRINT 
  58. 480  FOR D = 1 TO 600: NEXT D
  59. 490  PRINT "THE SPECTER OF THAT SO-CALLED"
  60. 500  PRINT 
  61. 510  FOR D = 1 TO 500: NEXT D
  62. 520  PRINT "BEAST OF INFORMATION OVERLOAD."
  63. 530  PRINT 
  64. 540  FOR D = 1 TO 500: NEXT D
  65. 550  PRINT "TRUE, INFORMATION IS BEING"
  66. 560  PRINT 
  67. 580  FOR D = 1 TO 500: NEXT D
  68. 590  PRINT "PRODUCED AT EVER INCREASING"
  69. 610  PRINT 
  70. 620  FOR D = 1 TO 500: NEXT D
  71. 630  PRINT "RATES. BUT THERE IS"
  72. 640  PRINT 
  73. 670  FOR D = 1 TO 500: NEXT D
  74. 680  PRINT "NO REAL CAUSE FOR ALARM"
  75. 690  PRINT 
  76. 700  PRINT 
  77. 710  PRINT 
  78. 720  PRINT 
  79. 730  FOR D = 1 TO 400: NEXT D
  80. 740  PRINT "AT"
  81. 745  PRINT  CHR$(7)
  82. 750  PRINT 
  83. 760  PRINT 
  84. 770  PRINT 
  85. 780  PRINT 
  86. 785  PRINT 
  87. 790  FOR D = 1 TO 150: NEXT D
  88. 800  PRINT "THE"
  89. 805  PRINT  CHR$(7)
  90. 806  PRINT 
  91. 807  PRINT 
  92. 808  PRINT 
  93. 809  PRINT 
  94. 810  PRINT 
  95. 815  PRINT 
  96. 816  PRINT 
  97. 817  PRINT 
  98. 818  PRINT 
  99. 820  PRINT 
  100. 830  PRINT 
  101. 840  FOR D = 1 TO 150: NEXT D
  102. 850  PRINT "PRESENT"
  103. 855  PRINT  CHR$(7)
  104. 860  PRINT 
  105. 861  PRINT 
  106. 862  PRINT 
  107. 863  PRINT 
  108. 865  PRINT 
  109. 866  PRINT 
  110. 867  PRINT 
  111. 868  PRINT 
  112. 869  PRINT 
  113. 870  PRINT 
  114. 871  PRINT 
  115. 872  PRINT 
  116. 873  PRINT 
  117. 874  PRINT 
  118. 880  PRINT 
  119. 890  FOR D = 1 TO 150: NEXT D
  120. 900  PRINT "TIME."
  121. 905  PRINT  CHR$(7)
  122. 910  PRINT : PRINT : PRINT : PRINT 
  123. 920  PRINT : PRINT : PRINT : PRINT 
  124. 925  PRINT : PRINT : PRINT : PRINT : PRINT 
  125. 930  PRINT 
  126. 940  PRINT 
  127. 950  PRINT 
  128. 951  PRINT 
  129. 952  PRINT 
  130. 953  PRINT 
  131. 954  PRINT 
  132. 955  PRINT 
  133. 956  PRINT 
  134. 957  PRINT 
  135. 960  FOR D = 1 TO 6000: NEXT D
  136. 970  HOME 
  137. 980  SPEED= 100
  138. 990  VTAB 12: PRINT "(C) COPYRIGHT 1986     PHIL SHAPIRO"
  139. 1000  FOR D = 1 TO 4000: NEXT D
  140. 1010  HOME 
  141. 1020  END